﻿Public Class Detalle

    Function Agregar(ByVal mantenimiento As Ejemplo.BE.Detalle) As Ejemplo.BE.Detalle
        Dim dsMantinimiento As Ejemplo.DS.Detalle
        dsMantinimiento = New Ejemplo.DS.Detalle
        dsMantinimiento.Agregar(mantenimiento)
        Return mantenimiento
    End Function

    Sub Editar(ByVal mantenimiento As Ejemplo.BE.Detalle)
        Dim dsMantinimiento As Ejemplo.DS.Detalle
        dsMantinimiento = New Ejemplo.DS.Detalle
        dsMantinimiento.Editar(mantenimiento)
    End Sub


    Function Eliminar(ByVal id As Integer, ByVal id_Maestro As Integer) As Boolean
        Dim dsMantinimiento As Ejemplo.DS.Detalle
        dsMantinimiento = New Ejemplo.DS.Detalle
        Return dsMantinimiento.Eliminar(id, id_Maestro)
    End Function

    Function Listar() As List(Of Ejemplo.BE.MantenimientoBasico)
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantinimiento.Listar
    End Function


    Function Obtener(ByVal id_Maestro As Integer) As List(Of Ejemplo.BE.Detalle)
        Dim dsMantinimiento As Ejemplo.DS.Detalle
        dsMantinimiento = New Ejemplo.DS.Detalle
        Return dsMantinimiento.Obtener(id_Maestro)
    End Function


    Function Filtrar(ByVal mantenimiento As Ejemplo.BE.MantenimientoBasico) As List(Of Ejemplo.BE.MantenimientoBasico)

    End Function




End Class